home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / controls / geticon2.frm < prev    next >
Text File  |  1993-05-16  |  2KB  |  81 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Find Some Icons"
  4.    ClientHeight    =   4470
  5.    ClientLeft      =   1785
  6.    ClientTop       =   1500
  7.    ClientWidth     =   6825
  8.    Height          =   4875
  9.    Left            =   1725
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4470
  12.    ScaleWidth      =   6825
  13.    Top             =   1155
  14.    Width           =   6945
  15.    Begin FileListBox File1 
  16.       Height          =   1980
  17.       Left            =   3480
  18.       TabIndex        =   4
  19.       Top             =   1200
  20.       Width           =   1935
  21.    End
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   495
  25.       Left            =   2640
  26.       TabIndex        =   3
  27.       Top             =   3720
  28.       Width           =   1335
  29.    End
  30.    Begin DirListBox Dir1 
  31.       Height          =   1575
  32.       Left            =   480
  33.       TabIndex        =   1
  34.       Top             =   1800
  35.       Width           =   2175
  36.    End
  37.    Begin DriveListBox Drive1 
  38.       Height          =   1530
  39.       Left            =   480
  40.       TabIndex        =   0
  41.       Top             =   1200
  42.       Width           =   1215
  43.    End
  44.    Begin Label Label1 
  45.       Alignment       =   2  'Center
  46.       Caption         =   "Navigate to the desired subdirectory containing icon (.ICO) files."
  47.       Height          =   495
  48.       Left            =   1680
  49.       TabIndex        =   2
  50.       Top             =   360
  51.       Width           =   3615
  52.    End
  53. End
  54. Option Explicit
  55.  
  56. Sub Command1_Click ()
  57.     form2.Hide
  58.     If file1.ListCount = 0 Then
  59.         form1.Command2.Enabled = False
  60.     Else
  61.         form1.Command2.Enabled = True
  62.     End If
  63.     form1.Show
  64.     form1.SetFocus
  65. End Sub
  66.  
  67. Sub Dir1_Change ()
  68.     file1.Path = dir1.Path
  69. End Sub
  70.  
  71. Sub Drive1_Change ()
  72.     dir1.Path = drive1.Drive
  73. End Sub
  74.  
  75. Sub Form_Load ()
  76.     file1.Pattern = "*.ico"
  77.     drive1.Drive = "c:\vb\icons"
  78.     dir1.Path = "c:\vb\icons"
  79. End Sub
  80.  
  81.